home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / microcrn / issue_40.arc / DAIMS.ARC / EKPANEL.HXX < prev    next >
Encoding:
Text File  |  1988-02-10  |  1.5 KB  |  42 lines
  1. char * ekman_panel_constructor(double, double, int, double, double, int);
  2. double dcVAL(char * ekman_panel_handle);
  3. double acVAL(char * ekman_panel_handle);
  4. int acWAVES(char * ekman_panel_handle);
  5. short Ekman_changed(char * ekman_panel_handle);
  6. int Ekman_nsteps(char * ekman_panel_handle);
  7. short Ekman_new_resolution(char * ekman_panel_handle);
  8. double ek_xldomain(char * ekman_panel_handle);
  9. double ek_xrdomain(char * ekman_panel_handle);
  10. void Ekman_dirty_flag_reset(char * ekman_panel_handle);
  11.  
  12. /* 
  13. -*++ class ekpanel: SunView control panel for ekman layer
  14. ** 
  15. ** (*++ history: 
  16. **      6 Jan 88    Bruce Eckel    Creation date. Top-level wrapping for
  17. ** Keffer's C code. 
  18. ** ++*)
  19. ** 
  20. ** (*++ detailed: 
  21. ** ++*)
  22. */
  23.  
  24. class ekman_layer;
  25.  
  26. class ekpanel {
  27.     char * ekman_panel_handle;
  28.   public:
  29.     ekpanel(ekman_layer & ekman);
  30.     char * handle() { return ekman_panel_handle;}
  31.     double dc_value() { return dcVAL(ekman_panel_handle); }
  32.     double ac_value() { return acVAL(ekman_panel_handle); }
  33.     int ac_waves() { return acWAVES(ekman_panel_handle); }
  34.     double xldomain() { return ek_xldomain(ekman_panel_handle); }
  35.     double xrdomain() { return ek_xrdomain(ekman_panel_handle); }
  36.     short changed() { return Ekman_changed(ekman_panel_handle); }
  37.     void reset() { Ekman_dirty_flag_reset(ekman_panel_handle); }
  38.     int resolution() { return Ekman_nsteps(ekman_panel_handle); }
  39.     short new_resolution() 
  40.     { return Ekman_new_resolution(ekman_panel_handle); }
  41. };
  42.